Angelica Gamboa and Gwendolyn Espinoza
2025-03-28
## Warning: package 'ggplot2' was built under R version 4.4.3
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.1.5
## ✔ forcats 1.0.0 ✔ stringr 1.5.1
## ✔ ggplot2 3.5.1 ✔ tibble 3.2.1
## ✔ lubridate 1.9.4 ✔ tidyr 1.3.1
## ✔ purrr 1.0.4
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
## Rows: 10,868
## Columns: 6
## $ Year <int> 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017…
## $ X113.Cause.Name <chr> "Accidents (unintentional injuries) (V01-X59,Y…
## $ Cause.Name <chr> "Unintentional injuries", "Unintentional injur…
## $ State <chr> "United States", "Alabama", "Alaska", "Arizona…
## $ Deaths <int> 169936, 2703, 436, 4184, 1625, 13840, 3037, 20…
## $ Age.adjusted.Death.Rate <dbl> 49.4, 53.8, 63.7, 56.2, 51.8, 33.2, 53.6, 53.2…
Year in which the incident took place.The full, official name of the cause of death classified by the NCHS.A broader label for the cause of death.The U.S. state where the data was collected.The total number of deaths reported for a specific cause of death.The death rate per 100,000 people, adjusted per age group for fair comparison.CLRD stands for Chronic Lower Respiratory Diseases.
## # A tibble: 19 × 2
## Year Total_Heart_Deaths
## <int> <int>
## 1 1999 1450384
## 2 2000 1421520
## 3 2001 1400284
## 4 2002 1393894
## 5 2003 1370178
## 6 2004 1304972
## 7 2005 1304182
## 8 2006 1263272
## 9 2007 1232134
## 10 2008 1233656
## 11 2009 1198826
## 12 2010 1195378
## 13 2011 1193154
## 14 2012 1199422
## 15 2013 1222210
## 16 2014 1228696
## 17 2015 1267684
## 18 2016 1270520
## 19 2017 1294914
## # A tibble: 19 × 2
## Year Total_Deaths
## <int> <int>
## 1 1999 1099676
## 2 2000 1106182
## 3 2001 1107536
## 4 2002 1114542
## 5 2003 1113804
## 6 2004 1107776
## 7 2005 1118624
## 8 2006 1119776
## 9 2007 1125750
## 10 2008 1130938
## 11 2009 1135256
## 12 2010 1149486
## 13 2011 1153382
## 14 2012 1165246
## 15 2013 1169762
## 16 2014 1183400
## 17 2015 1191860
## 18 2016 1196076
## 19 2017 1198216
## Warning: package 'patchwork' was built under R version 4.4.3
Different states or regions have different age structures (e.g., Florida has more older people). Older populations naturally have higher death rates so comparing raw death rates across states would be misleading.
To make fair comparisons across the states, public health stats use age adjustment
Instead of comparing raw numbers, we adjust both using the same “standard” population age structure, usually the U.S. standard population.
A higher rate could suggest a higher proportion of older individuals in the population.
## Warning: package 'plotly' was built under R version 4.4.3
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
## `summarise()` has grouped output by 'State'. You can override using the
## `.groups` argument.